home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / SAT 2.3.8 / Demos / HeartQuest demo ƒ / ClutFade / Demo / Shell.p < prev   
Encoding:
Text File  |  1995-07-15  |  1.7 KB  |  82 lines  |  [TEXT/PJMM]
  1. (* This source by Ingemar Ragnemalm, based on code by N. Jonas Englund, 1993. *)
  2.  
  3. program Shell;
  4.  
  5.     uses
  6. {$IFC UNDEFINED THINK_PASCAL}
  7.         Types, QuickDraw, Dialogs, Fonts, 
  8. {$ENDC}
  9.         ClutFade;
  10.  
  11. (********************************** InitToolbox ********************************)
  12.     procedure InitToolbox;
  13.     begin
  14.         MaxApplZone;
  15.         MoreMasters;
  16. {$IFC UNDEFINED THINK_PASCAL}
  17.         InitGraf(@qd.thePort);
  18.         InitFonts;
  19.         InitWindows;
  20.         InitMenus;
  21.         TEInit;
  22.         InitDialogs(nil);
  23. {$ENDC}
  24.         InitCursor;
  25.         FlushEvents(everyEvent, 0);
  26.     end;
  27. (*** InitToolbox ***)
  28.  
  29.     function MakeColor (r, g, b: Integer): RGBColor;
  30.         var
  31.             col: RGBColor;
  32.     begin
  33.         col.red := r;
  34.         col.green := g;
  35.         col.blue := b;
  36.         MakeColor := col;
  37.     end; {MakeColor}
  38.  
  39.  
  40. (********************************** TestWindow *********************************)
  41.     procedure TestWindow;
  42.         var
  43.             d: DialogPtr;
  44.             g: GrafPtr;
  45.             hit: Integer;
  46.             fadeTo: RGBColor;
  47.  
  48.     { Fade to pink: $d000, $4000, $4000}
  49.     { Fade to green: $0000, $ffff, $4000}
  50.     { Fade to white: $ffff, $ffff, $ffff}
  51.  
  52.     begin
  53.         fadeTo := MakeColor($efff, $0000, $ffff);
  54.  
  55.         FadeScreen(30, true, fadeTo);     {• Try fade speeds from}
  56.  
  57.         GetPort(g);
  58.         d := GetNewDialog(128, nil, WindowPtr(-1));
  59.         ShowWindow(d);
  60.         DrawDialog(d);
  61.         SetPort(d);
  62.         ValidRect(d^.portRect);
  63.  
  64.         FadeScreen(30, false, fadeTo);    {• 1 upward.}
  65.         ModalDialog(nil, hit);
  66.  
  67.         FadeScreen(30, true, fadeTo);     {• Try fade speeds from}
  68.         SetPort(g);
  69.         DisposeDialog(d);
  70.         FadeScreen(30, false, fadeTo);    {• 1 upward.}
  71.     end;
  72. (*** TestWindow ***)
  73.  
  74. (*********************************** main ***************************************)
  75.  
  76. begin
  77.     InitToolbox;
  78.     TestWindow;
  79. end.
  80. (*** main ***)
  81.  
  82. {===================================== EOF =====================================}